	#!/usr/bin/perl 
	# overload.pl
	use warnings;
	use strict;
	
	use ErrorClass::Overload;
	
	# generate an error
	unless (open STDIN, "no.such.file") {
	   my $error = new ErrorClass;
	
	   print "Error object ", ref $error, "\n";
	   print "\thas number ", $error->number, "\n";
	   print "\thas message '", $error->message, "'\n";
	   print "Text represetation '", $error, "'\n";
	   print "Numeric representation = ", int($error), "\n";
	   print "It's not there! \n" if $error eq 'ENOENT';
	}
